home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / logtho1a / basapica.bas next >
Encoding:
BASIC Source File  |  1999-09-05  |  527 b   |  18 lines
  1. Attribute VB_Name = "basAPICalls"
  2. Option Explicit
  3.  
  4. 'Used to get the logged in User's Name
  5. Public Declare Function WNetGetUserA _
  6.     Lib "mpr" (ByVal lpName As String, ByVal lpUserName As String, _
  7.     lpnLength As Long) As Long
  8.  
  9. 'Used for the GetUser routine
  10. Public Function GetUser() As String
  11.     Dim sUserNameBuff As String * 255
  12.     sUserNameBuff = Space(255)
  13.     Call WNetGetUserA(vbNullString, sUserNameBuff, 255&)
  14.     GetUser = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1)
  15. End Function
  16.  
  17.  
  18.